home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update20.zoo / lib / diffs < prev    next >
Encoding:
Text File  |  1992-04-19  |  35.2 KB  |  1,425 lines
  1. *** 1.70    1992/03/28 06:40:31
  2. --- Changelo    1992/04/19 16:03:21
  3. ***************
  4. *** 2929,2931 ****
  5. --- 2929,3069 ----
  6.       doc is mum on this point) -- ++jrb
  7.   
  8.   ---------------------------- Patchlevel 79 ---------------------------
  9. + 
  10. + gnulib2.c:: ++jrb
  11. +     add gcc 2.0 support routine __fixunssfsi()
  12. + 
  13. + bblink.c:: ++jrb
  14. +     new file to support gcc -tcov (-tcov is not working as yet, but
  15. +     when it does, we are ready!)
  16. + 
  17. + mincl:: ++jrb
  18. +     add targets for above
  19. + 
  20. + doprnt.c:: michal/++jrb
  21. +     had the same problem as osbind for -fomit-frame-pointer, in ICONV
  22. +     change constraints for stuff that is pushed before the sp is reset
  23. +     from "g" to "r".
  24. +     Also, michal optimized ICONV a bit to do the long div only while
  25. +     the number > 65535.
  26. + 
  27. + signal.h sysvars.h
  28. + div.c doprnt.c gmon.c main.c sbrk.c system.c: Michal
  29. +     shut off gcc 2.X warnings.
  30. + 
  31. + ***************  RENAME     **********************************************
  32. + 
  33. +     rename file _floatsi.cpp to _fltsi.cpp
  34. + 
  35. + **************************************************************************
  36. + 
  37. + 
  38. + **********************    REMOVE ******************************************
  39. +         bzero.c, memset.c. memcpy.s
  40. + *************************************************************************
  41. + 
  42. + bcopy.s, bzero.cpp:: alexander lehmann
  43. +     efficient replacements for bcopy/bzero/memmove/memset/memcpy
  44. + 
  45. + bcopy.s:: ++jrb
  46. +     minor adjustment.
  47. + 
  48. + mincl:: ++jrb
  49. +     adjust targets for above
  50. + 
  51. + fread.c:: ++jrb
  52. +     remove redundant cast in 'data=(char*)data + m;' since data
  53. +     is a char * now.
  54. + 
  55. + 
  56. + _cmpdf2.s _cmpsf2.s  _fixsfsi.cpp _fltsisf.cpp gnulib2.c:: andreas
  57. +     * gnulib2.c: nothing needed for gcc-2.0 except __fixsfsi and
  58. +     __floatsisf
  59. +     * _fixsfsi.cpp, _fltsisf.cpp: new files
  60. +     * _cmpdf2.s, _cmpsf2.s: new entry points for gcc2
  61. +     
  62. +     in gnulib2.c i #if 0'ed out the not used portions instead of deleting
  63. +     them, just so that we have a handy cross reference around. also note
  64. +     that at the bottom there is still one new gcc 2.X support routine
  65. +     around.  ++jrb
  66. + 
  67. + _fixdfsi.cpp:: andreas
  68. +     some cleanups
  69. + 
  70. + _floatsi.cpp:: andreas
  71. +      code for __M68881__ was bogus (is this needed anyways?)
  72. + 
  73. + alloca.s:: andreas
  74. +     remove some wasted bytes
  75. + 
  76. + console.c:: andreas
  77. +     (raw_in): allow typeahead (which is only available at GEMDOS level).
  78. + 
  79. + doprnt.c:: andreas
  80. +     -- remove some misuse of NULL; handle %g correctly.
  81. +     -- a version of iconv for -m68020 and also for non __GNUC__
  82. +         -- i merged in earlier iconv change, with one diff: when
  83. +     using the long div, make d1 come out into 'i' by declaring
  84. +     d1 as the reggie for i as andreas had done in his change, rather
  85. +     than use a movw d1, %1 as i had it earlier   ++jrb
  86. + 
  87. + getenv.c putenv.c :: andreas
  88. +     * getenv.c (putenv): put it in separate file as it is independent
  89. +     of getenv
  90. +     * putenv.c: new file
  91. + 
  92. + getuid.c unistd.h:: andreas
  93. +     * getuid.c: use uid_t and gid_t
  94. +     * unistd.h: ditto
  95. +     note that sete?[gu]id() has int as parameter type so that it
  96. +     matches the old-style definition
  97. + 
  98. + mkdir.c:: andreas
  99. +     * mkdir.c: stat() on an already unx2dos'd filename is a no-no (and
  100. +     also wastefull), use Fattrib() instead
  101. + 
  102. + read.c:: andreas
  103. +     (_delchar, str_length): handle ^@ (^@ == (int)0 ++jrb) correctly
  104. + 
  105. + rmdir.c:: andreas
  106. +     rewrite symbolic directory if dir was nonempty
  107. + 
  108. + scanf.c :: andreas
  109. +     improve handling of character class
  110. + 
  111. + stat.c:: andreas
  112. +     allow symbolic link to a deleted path
  113. + 
  114. + strcoll.c string.h :: andreas
  115. +     * strcoll.c: new file, implementation of strcoll and strxfrm that
  116. +     doesn't know about locales
  117. +     * string.h: add proto for strcoll and strxfrm
  118. + 
  119. + strftime.c:: andreas
  120. +     echo unknown format char ala printf (otherwise
  121. +     buf is uninitialized)
  122. + 
  123. + mincl: andreas
  124. +     add target for putenv.o
  125. +     mincl: add taget for strcoll.o
  126. +     adjust gnulib2 targets:
  127. +         add targets for _fixsfsi.o, _fltsisf.o
  128. +         remove targets for _lshrsi3.o,...,_lesf2.o
  129. + 
  130. + compiler.h float.h signal.h stddef.h stdio.h :: andreas
  131. +     avoid warning `cast to pointer from integer of different size'
  132. +     if -mshort.
  133. + 
  134. +     This is 'fixed' in gcc 2.1 (actually we had the fix for gcc 2.0 PL 2)
  135. +     to not issue this warning for 0 being promoted. but andreas's changes
  136. +     are applicable in any case. ++jrb
  137. + 
  138. + unx2dos.c:: ++jrb/ers/michal
  139. +     change default unixmode (if not user specified) from "/" to "/d"
  140. +     this takes care of problems dues to caonicalization of PATH to
  141. +     posix form, where D:\foo is mapped internally to "/dev/D/foo. if
  142. +     there was no 'd' in the default unixmode, then a casual
  143. +     user would be surprised why non-spawning application could'nt
  144. +     find stuff in such PATH's (like when using findfile).
  145. + 
  146. + ---------------------------- Patchlevel 80 ---------------------------
  147. *** 1.55    1992/03/28 06:40:31
  148. --- PatchLev.h    1992/04/19 16:03:24
  149. ***************
  150. *** 1,5 ****
  151.   
  152. ! #define    PatchLevel "79"
  153.   
  154.   /*
  155.    *
  156. --- 1,5 ----
  157.   
  158. ! #define    PatchLevel "80"
  159.   
  160.   /*
  161.    *
  162. *** 1.1    1990/03/26 17:37:08
  163. --- _cmpdf2.s    1992/04/19 16:03:28
  164. ***************
  165. *** 13,21 ****
  166. --- 13,29 ----
  167.       .text
  168.       .even
  169.       .globl    __cmpdf2, ___cmpdf2
  170. +     | additional entry points for gcc2
  171. +     .globl    ___eqdf2, ___nedf2, ___gtdf2, ___gedf2, ___ltdf2, ___ledf2
  172.   
  173.   __cmpdf2:
  174.   ___cmpdf2:
  175. + ___eqdf2:
  176. + ___nedf2:
  177. + ___gtdf2:
  178. + ___gedf2:
  179. + ___ltdf2:
  180. + ___ledf2:
  181.       moveml    sp@(4),d0-d1/a0-a1 | get u and v
  182.       tstl    d0        | check sign bit
  183.       bpl    1f
  184. *** 1.1    1990/03/26 17:37:08
  185. --- _cmpsf2.s    1992/04/19 16:03:28
  186. ***************
  187. *** 13,21 ****
  188. --- 13,29 ----
  189.       .text
  190.       .even
  191.       .globl    __cmpsf2, ___cmpsf2
  192. +     | additional entry points for gcc2
  193. +     .globl    ___eqsf2, ___nesf2, ___gtsf2, ___gesf2, ___ltsf2, ___lesf2
  194.   
  195.   __cmpsf2:
  196.   ___cmpsf2:
  197. + ___eqsf2:
  198. + ___nesf2:
  199. + ___gtsf2:
  200. + ___gesf2:
  201. + ___ltsf2:
  202. + ___lesf2:
  203.       moveml    sp@(4),d0-d1    | get u and v
  204.       tstl    d1        | check sign bit
  205.       bpl    1f
  206. *** 1.1    1992/02/04 17:11:06
  207. --- _fixdfsi.cpp    1992/04/19 16:03:30
  208. ***************
  209. *** 78,83 ****
  210. --- 78,87 ----
  211.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  212.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  213.   |
  214. + | modified by Andreas Schwab (schwab@ls5.informatik.uni-dortmund.de):
  215. + | no loop needed for the shift-down case
  216. + | testing for far shifts now too slow
  217. + | use different registers to gain speed
  218.   |
  219.   | Revision 1.3, kub 01-90 :
  220.   | added support for denormalized numbers
  221. ***************
  222. *** 100,163 ****
  223.   __fixdfsi:
  224.   ___fixdfsi:
  225.       lea    sp@(4),a0    | pointer to parameters
  226. !     moveml    d2/d4/d5,sp@-    | save registers
  227. !     moveml    a0@,d4-d5    | get the number
  228. !     movew    a0@,d0        | extract exp
  229. !     movew    d0,d2        | extract sign
  230. !     lsrw    #4,d0
  231. !     andw    #0x07ff,d0    | kill sign bit
  232.   
  233. !     andl    #0x0fffff,d4    | remove exponent from mantissa
  234. !     orl    #0x100000,d4    | restore implied leading "1"
  235.   
  236. !     cmpw    #BIAS8,d0    | check exponent
  237.       blt    zero        | strictly factional, no integer part ?
  238. !     cmpw    #BIAS8+32,d0    | is it too big to fit in a 32-bit integer ?
  239.       bgt    toobig
  240.   
  241. !     subw    #BIAS8+21,d0    | adjust exponent
  242.       bgt    2f        | shift up
  243. !     beq    3f        | no shift
  244.   
  245. !     cmpw    #-8,d0        | replace far shifts by swap
  246. !     bgt    1f
  247. !     movew    d4,d5        | shift fast, 16 bits
  248. !     swap    d5
  249. !     clrw    d4
  250. !     swap    d4
  251. !     addw    #16,d0        | account for swap
  252. !     bgt    2f
  253. !     beq    3f
  254. ! 
  255. ! 1:    lsrl    #1,d4        | shift down to align radix point;
  256. !     addw    #1,d0        | extra bits fall off the end (no rounding)
  257. !     blt    1b        | shifted all the way down yet ?
  258. !     bra    3f
  259. ! 
  260. ! 2:    addl    d5,d5        | shift up to align radix point
  261. !     addxl    d4,d4
  262. !     subw    #1,d0
  263.       bgt    2b
  264.   
  265. ! 3:    movel    d4,d0        | put integer into result register
  266. !     cmpl    #0x80000000,d0    | -2147483648 is a nasty evil special case
  267.       bne    6f
  268. !     tstw    d2        | this had better be -2^31 and not 2^31
  269.       bpl    toobig
  270.       bra    8f
  271.   6:    tstl    d0        | sign bit set ? (i.e. too big)
  272.       bmi    toobig
  273.   7:
  274. !     tstw    d2        | is it negative ?
  275.       bpl    8f
  276.       negl    d0        | negate
  277.   8:
  278. !     moveml    sp@+,d2/d4/d5
  279.       rts
  280.   
  281.   zero:
  282.       clrl    d0        | make the whole thing zero
  283. !     bra    7b
  284.   
  285.   toobig:
  286.       movel    #0x7fffffff,d0    | ugh. Should cause a trap here.
  287. --- 104,156 ----
  288.   __fixdfsi:
  289.   ___fixdfsi:
  290.       lea    sp@(4),a0    | pointer to parameters
  291. !     moveml    d2/d3,sp@-    | save registers
  292. !     moveml    a0@,d0-d1    | get the number
  293. !     movew    a0@,d2        | extract exp
  294. !     movew    d2,d3        | extract sign
  295. !     lsrw    #4,d2
  296. !     andw    #0x07ff,d2    | kill sign bit
  297.   
  298. !     andl    #0x0fffff,d0    | remove exponent from mantissa
  299. !     orl    #0x100000,d0    | restore implied leading "1"
  300.   
  301. !     cmpw    #BIAS8,d2    | check exponent
  302.       blt    zero        | strictly factional, no integer part ?
  303. !     cmpw    #BIAS8+32,d2    | is it too big to fit in a 32-bit integer ?
  304.       bgt    toobig
  305.   
  306. !     subw    #BIAS8+21,d2    | adjust exponent
  307.       bgt    2f        | shift up
  308. !     beq    7f        | no shift (never too big)
  309.   
  310. !     negw    d2
  311. !     lsrl    d2,d0        | shift down to align radix point;
  312. !                 | extra bits fall off the end (no rounding)
  313. !     bra    7f        | never too big
  314. ! 
  315. ! 2:    addl    d1,d1        | shift up to align radix point
  316. !     addxl    d0,d0
  317. !     subw    #1,d2
  318.       bgt    2b
  319.   
  320. ! 3:    cmpl    #0x80000000,d0    | -2147483648 is a nasty evil special case
  321.       bne    6f
  322. !     tstw    d3        | this had better be -2^31 and not 2^31
  323.       bpl    toobig
  324.       bra    8f
  325.   6:    tstl    d0        | sign bit set ? (i.e. too big)
  326.       bmi    toobig
  327.   7:
  328. !     tstw    d3        | is it negative ?
  329.       bpl    8f
  330.       negl    d0        | negate
  331.   8:
  332. !     moveml    sp@+,d2/d3
  333.       rts
  334.   
  335.   zero:
  336.       clrl    d0        | make the whole thing zero
  337. !     bra    8b
  338.   
  339.   toobig:
  340.       movel    #0x7fffffff,d0    | ugh. Should cause a trap here.
  341. ***************
  342. *** 192,198 ****
  343.   #endif    ERROR_CHECK
  344.   
  345.   # if !defined (sfp004) && !defined (__M68881__)
  346. !     bra    7b
  347.   #else
  348.       rts
  349.   #endif
  350. --- 185,191 ----
  351.   #endif    ERROR_CHECK
  352.   
  353.   # if !defined (sfp004) && !defined (__M68881__)
  354. !     bra    8b
  355.   #else
  356.       rts
  357.   #endif
  358. *** 1.1    1992/02/04 17:11:06
  359. --- _floatsi.cpp    1992/04/19 16:03:31
  360. ***************
  361. *** 12,20 ****
  362.   
  363.   __floatsidf:
  364.   ___floatsidf:
  365. !     fmovel    a7@(4),fp0        | load long int to fp0
  366. !     fintrzd a4@(4),fp0        | get double from fp0
  367. !     fmoved    fp0,a7@-
  368.       moveml    a7@+,d0-d1
  369.        rts
  370.   
  371. --- 12,19 ----
  372.   
  373.   __floatsidf:
  374.   ___floatsidf:
  375. !     fintrzd a7@(4),fp0        | load long int to fp0
  376. !     fmoved    fp0,a7@-        | get double from fp0
  377.       moveml    a7@+,d0-d1
  378.        rts
  379.   
  380. *** 1.4    1989/09/01 01:34:53
  381. --- alloca.s    1992/04/19 16:03:39
  382. ***************
  383. *** 19,24 ****
  384.       subl    d0,sp        | increase stack frame size by that much
  385.       movel    sp,d0        | set up to return it
  386.   
  387. !     lea    sp@(-4),sp    | new top of stack (real bug fix here)
  388.   
  389.       jmp    a0@        | return by jmping via saved addr
  390. --- 19,24 ----
  391.       subl    d0,sp        | increase stack frame size by that much
  392.       movel    sp,d0        | set up to return it
  393.   
  394. !     subql    #4,sp        | new top of stack (real bug fix here)
  395.   
  396.       jmp    a0@        | return by jmping via saved addr
  397. *** 1.10    1992/03/28 06:40:31
  398. --- console.c    1992/04/19 16:03:47
  399. ***************
  400. *** 85,91 ****
  401.   raw_in(dev)
  402.   int dev;
  403.   {
  404. !     return Bconin(in_dev(dev));
  405.   }
  406.   
  407.   #if 0
  408. --- 85,96 ----
  409.   raw_in(dev)
  410.   int dev;
  411.   {
  412. !   if (dev < 3)
  413. !     return Bconin (dev);
  414. !   else if (dev == 3)
  415. !     return Crawcin ();
  416. !   else
  417. !     return Cauxin ();
  418.   }
  419.   
  420.   #if 0
  421. ***************
  422. *** 218,221 ****
  423.       }
  424.       }
  425.   }
  426. - 
  427. --- 223,225 ----
  428. *** 1.3    1991/06/23 17:07:09
  429. --- div.c    1992/04/19 16:03:50
  430. ***************
  431. *** 36,44 ****
  432.            movl    %3,sp@-
  433.           movl    %2,sp@-
  434.           jsr    ___divsi3
  435.           movl    d0,%0
  436. !         movl    d1,%1
  437. !         addqw    #8,sp"
  438.           : "=g"(result.quot), "=g"(result.rem)
  439.           : "r"(num), "r"(denom)
  440.           ); /* compiler dependency, dont tell gcc about d0,d1 clobb */
  441. --- 36,44 ----
  442.            movl    %3,sp@-
  443.           movl    %2,sp@-
  444.           jsr    ___divsi3
  445. +         addqw    #8,sp
  446.           movl    d0,%0
  447. !         movl    d1,%1"
  448.           : "=g"(result.quot), "=g"(result.rem)
  449.           : "r"(num), "r"(denom)
  450.           ); /* compiler dependency, dont tell gcc about d0,d1 clobb */
  451. *** 1.10    1992/03/06 19:19:47
  452. --- doprnt.c    1992/04/19 16:03:50
  453. ***************
  454. *** 23,28 ****
  455. --- 23,29 ----
  456.    */
  457.   
  458.   #ifndef __NO_FLOAT__
  459. + #if 0
  460.   static unsigned long
  461.       __notanumber[2] = { 0x7fffffffL, 0xffffffffL }; /* ieee NAN */
  462.   #define NAN  (*((double *)&__notanumber[0]))
  463. ***************
  464. *** 31,36 ****
  465. --- 32,44 ----
  466.   #define INF  (*((double *)&__p_infinity[0]))
  467.   #endif
  468.   
  469. + #define NAN_HI 0x7fffffffL
  470. + #define NAN_LO 0xffffffffL
  471. + #define INF_HI 0x7ff00000L
  472. + #define INF_LO 0x00000000L
  473. + 
  474. + #endif /* __NO_FLOAT__ */
  475. + 
  476.   #ifdef LIBC_SCCS
  477.   static char sccsid[] = "@(#)doprnt.c    5.37 (Berkeley) 3/26/89";
  478.   #endif /* LIBC_SCCS */
  479. ***************
  480. *** 101,143 ****
  481.   #endif
  482.   
  483.   #ifdef __GNUC__
  484. ! #define _ICONV(NUMBER, BASE, BUF)                 \
  485.   {                                \
  486. !     short i;                            \
  487. !     if(NUMBER <= 65535L)                    \
  488.       {                                \
  489. !     do                             \
  490. !     {                            \
  491. !         __asm__ volatile("  \
  492. !          divu    %3,%2;  \
  493. !          swap    %0;     \
  494. !          movw    %0,%1;  \
  495. !          clrw    %0;     \
  496. !                 swap    %0"                    \
  497. !              : "=d"((long)NUMBER), "=g"(i)            \
  498. !          : "0"((long)NUMBER), "g"((short)BASE));    \
  499. !         *--BUF = digs[i];                    \
  500. !     } while(NUMBER);                    \
  501.       }                                \
  502. !     else                            \
  503.       {                                \
  504. !         extern unsigned long __udivsi3(); /* quot = d0, rem = d1 */     \
  505. !     do                             \
  506. !     {                            \
  507. !         __asm__ volatile("        \
  508. !          movl    %3,sp@-;      \
  509. !          movl    %2,sp@-;      \
  510. !          jsr    ___udivsi3;    \
  511. !          movl    d0,%0;        \
  512. !          movw    d1,%1;        \
  513. !          addqw    #8,sp"                    \
  514. !              : "=g"((long)NUMBER), "=g"(i)            \
  515. !          : "0"((long)NUMBER), "g"((long)BASE)        \
  516.                : "d0", "d1", "a0", "a1");            \
  517.           *--BUF = digs[i];                    \
  518. -     } while(NUMBER);                    \
  519.       }                                \
  520.   }
  521.   #endif /* __GNUC__ */
  522.   
  523.   
  524. --- 109,175 ----
  525.   #endif
  526.   
  527.   #ifdef __GNUC__
  528. ! #ifdef __M68020__
  529. ! 
  530. ! #define _ICONV(NUMBER, BASE, BUF)                \
  531.   {                                \
  532. !   long i;                            \
  533. !   do                                \
  534.       {                                \
  535. !       __asm__ volatile                        \
  536. !     ("divull %3,%0:%1"                    \
  537. !      : "=d"((long)(NUMBER)), "=d"(i)            \
  538. !      : "0"((long)(NUMBER)), "d"((long)(BASE)));        \
  539. !       *--(BUF) = digs[i];                    \
  540.       }                                \
  541. !   while (NUMBER);                        \
  542. ! }
  543. ! 
  544. ! #else /* !__M68020 */  
  545. ! 
  546. ! #define _ICONV(NUMBER, BASE, BUF)                 \
  547. ! {                                \
  548. !                                 \
  549. !     while((NUMBER) > 65535L)                    \
  550.       {                                \
  551. !         extern unsigned long __udivsi3(); /* quot = d0, rem = d1 */ \
  552. !         register long i __asm ("d1");                    \
  553. !     __asm__ volatile("
  554. !         movl    %3,sp@-;
  555. !          movl    %2,sp@-;
  556. !          jsr    ___udivsi3;
  557. !          addqw    #8,sp;
  558. !          movl    d0,%0"                    \
  559. !              : "=r"((long)NUMBER), "=d"(i)            \
  560. !          : "0"((long)NUMBER), "r"((long)BASE)        \
  561.                : "d0", "d1", "a0", "a1");            \
  562.           *--BUF = digs[i];                    \
  563.       }                                \
  564. +     do                                 \
  565. +     {                                \
  566. +             short i;                        \
  567. +         __asm__ volatile("
  568. +          divu    %3,%2;
  569. +          swap    %0;
  570. +          movw    %0,%1;
  571. +          clrw    %0;
  572. +                 swap    %0"                    \
  573. +              : "=d"((long)NUMBER), "=g"(i)            \
  574. +          : "0"((long)NUMBER), "g"((short)BASE));    \
  575. +         *--BUF = digs[i];                    \
  576. +     } while(NUMBER);                        \
  577.   }
  578. + 
  579. + #endif /* __M68020 */
  580. + 
  581. + #else /* !__GNUC__ */
  582. + 
  583. + #define _ICONV(NUMBER, BASE, BUF)                 \
  584. +   do {                                \
  585. +     *--(BUF) = digs[(NUMBER) % (BASE)];                \
  586. +     (NUMBER) /= (BASE);                        \
  587. +   } while (NUMBER);
  588. + 
  589.   #endif /* __GNUC__ */
  590.   
  591.   
  592. ***************
  593. *** 279,285 ****
  594.   /* mjr: check for NANs */
  595.   #define    _double _dd.d
  596.               _double = va_arg(argp, double);
  597. !             if( (unsigned long)_dd.i[0] == __notanumber[0])    {
  598.                   t = buf;
  599.                   t = strcpy(t, " Not A Number ");
  600.                   size = strlen(t);
  601. --- 311,318 ----
  602.   /* mjr: check for NANs */
  603.   #define    _double _dd.d
  604.               _double = va_arg(argp, double);
  605. !             if (_dd.i[0] == NAN_HI)
  606. !             {
  607.                   t = buf;
  608.                   t = strcpy(t, " Not A Number ");
  609.                   size = strlen(t);
  610. ***************
  611. *** 307,317 ****
  612.               else
  613.                   softsign = 0;
  614.   /* mjr: check for +-INFINITY */
  615. !             if(
  616. !                 ((unsigned long)_dd.i[0] == __p_infinity[0])
  617. ! /*              && ((unsigned long)_dd.i[1] == __p_infinity[1]) */
  618. ! /* mjr: don't test this in order to catch a conversion bug in gcc-as     */
  619. !             )    {
  620.                   t = buf;
  621.                   if(softsign == 0)
  622.                   t = strcpy(t, " Infinity ");
  623. --- 340,348 ----
  624.               else
  625.                   softsign = 0;
  626.   /* mjr: check for +-INFINITY */
  627. !             if (((unsigned long)_dd.i[0] == INF_HI) &&
  628. !                 ((unsigned long)_dd.i[1] == INF_LO))
  629. !               {
  630.                   t = buf;
  631.                   if(softsign == 0)
  632.                   t = strcpy(t, " Infinity ");
  633. ***************
  634. *** 322,331 ****
  635.               }
  636.               /*
  637.                * cvt may have to round up past the "start" of the
  638. !              * buffer, i.e. ``intf("%.2f", (double)9.999);'';
  639. !              * if the first char isn't NULL, it did.
  640.                */
  641. !             *buf = (char)NULL;
  642.               size = cvt(_double, (int)prec, (int)flags, &softsign,
  643.                      *fmt, buf, buf + (int)sizeof(buf)); 
  644.               if (softsign)
  645. --- 353,362 ----
  646.               }
  647.               /*
  648.                * cvt may have to round up past the "start" of the
  649. !              * buffer, i.e. ``printf("%.2f", (double)9.999);'';
  650. !              * if the first char isn't '\0', it did.
  651.                */
  652. !             *buf = '\0';
  653.               size = cvt(_double, (int)prec, (int)flags, &softsign,
  654.                      *fmt, buf, buf + (int)sizeof(buf)); 
  655.               if (softsign)
  656. ***************
  657. *** 420,433 ****
  658.                */
  659.               t = buf + BUF;
  660.               if (_ulong != 0 || prec != 0) {
  661. - #ifndef __GNUC__
  662. -                 do {
  663. -                     *--t = digs[_ulong % base];
  664. -                     _ulong /= base;
  665. -                 } while (_ulong);
  666. - #else
  667.                   _ICONV(_ulong, base, t);
  668. - #endif                
  669.                   digs = "0123456789abcdef";
  670.                   if (flags & ALT && base == 8 && *t != '0')
  671.                       *--t = '0'; /* octal leading 0 */
  672. --- 451,457 ----
  673. ***************
  674. *** 671,680 ****
  675.                           fract = modf(fract * 10, &tmp);
  676.                           *t++ = tochar((int)tmp);
  677.                       } while(!tmp);
  678.                   }
  679. !                 while (--prec && fract) {
  680.                       fract = modf(fract * 10, &tmp);
  681.                       *t++ = tochar((int)tmp);
  682.                   }
  683.               }
  684.               if (fract)
  685. --- 695,706 ----
  686.                           fract = modf(fract * 10, &tmp);
  687.                           *t++ = tochar((int)tmp);
  688.                       } while(!tmp);
  689. +                     prec--;
  690.                   }
  691. !                 while (prec && fract) {
  692.                       fract = modf(fract * 10, &tmp);
  693.                       *t++ = tochar((int)tmp);
  694. +                     prec--;
  695.                   }
  696.               }
  697.               if (fract)
  698. *** 1.12    1992/03/28 06:40:31
  699. --- fread.c    1992/04/19 16:03:57
  700. ***************
  701. *** 46,52 ****
  702.           fp->_cnt -= cnt;
  703.           fp->_ptr += cnt;
  704.           l += cnt;
  705. !         data = (char *)data + cnt;
  706.           n -= cnt;
  707.       }
  708.       /* n == how much more */
  709. --- 46,52 ----
  710.           fp->_cnt -= cnt;
  711.           fp->_ptr += cnt;
  712.           l += cnt;
  713. !         data = data + cnt;
  714.           n -= cnt;
  715.       }
  716.       /* n == how much more */
  717. *** 1.7    1992/03/06 19:19:47
  718. --- getenv.c    1992/04/19 16:04:01
  719. ***************
  720. *** 10,17 ****
  721.   
  722.   extern char ** environ;
  723.   
  724. - static void del_env __PROTO((const char *strng));
  725. - 
  726.   char *
  727.   getenv(tag)
  728.       const char *tag;
  729. --- 10,15 ----
  730. ***************
  731. *** 26,91 ****
  732.           if (!strncmp(name, tag, len) && name[len] == '=')
  733.               return name+len+1;
  734.       }
  735. -     return 0;
  736. - }
  737. - 
  738. - static void
  739. - del_env(strng)
  740. -     const char *strng;
  741. - {
  742. -     char **var;
  743. -     char *name;
  744. -     size_t len = 0;
  745. - 
  746. -     if (!environ) return;
  747. - 
  748. - /* find the length of "tag" in "tag=value" */
  749. -     for (name = (char *)strng; *name && (*name != '='); name++)
  750. -         len++;
  751. - 
  752. - /* find the tag in the environment */
  753. -     for (var = environ; name = *var; var++) {
  754. -         if (!strncmp(name, strng, len) && name[len] == '=')
  755. -             break;
  756. -     }
  757. - 
  758. - /* if it's found, move all the other environment variables down by 1 to
  759. -    delete it
  760. -  */
  761. -     if (name) {
  762. -         while (name) {
  763. -             name = var[1];
  764. -             *var++ = name;
  765. -         }
  766. -     }
  767. - }
  768. - 
  769. - int
  770. - putenv(strng)
  771. -     char *strng;
  772. - {
  773. -     int i = 0;
  774. -     char **e;
  775. - 
  776. -     del_env(strng);
  777. - 
  778. -     if (!environ)
  779. -         e = (char **) malloc(2*sizeof(char *));
  780. -     else {
  781. -         while(environ[i]) i++ ;
  782. -         e = (char **) malloc((i+2)*sizeof(char *));
  783. -         if (!e) {
  784. -             return -1;
  785. -         }
  786. -         bcopy(environ, e, (i+1)*sizeof(char *));
  787. -         free(environ);
  788. -         environ = e;
  789. -     }
  790. -     if (!e)
  791. -         return -1;
  792. - 
  793. -     environ = e;
  794. -     environ[i] = strng;
  795. -     environ[i+1] = 0;
  796.       return 0;
  797.   }
  798. --- 24,28 ----
  799. *** 1.7    1992/03/06 19:19:47
  800. --- getopt.c    1992/04/19 16:04:02
  801. ***************
  802. *** 42,48 ****
  803.   int
  804.   getopt( argc, argv, optstring )        /* returns letter, '?', EOF */
  805.       int        argc;        /* argument count from main */
  806. !           char    *argv[];    /* argument vector from main */
  807.       const char    *optstring;    /* allowed args, e.g. "ab:c" */
  808.       {
  809.       static int    sp = 1;        /* position within argument */
  810. --- 42,48 ----
  811.   int
  812.   getopt( argc, argv, optstring )        /* returns letter, '?', EOF */
  813.       int        argc;        /* argument count from main */
  814. !     char *const     *argv;        /* argument vector from main */
  815.       const char    *optstring;    /* allowed args, e.g. "ab:c" */
  816.       {
  817.       static int    sp = 1;        /* position within argument */
  818. *** 1.5    1991/04/12 18:19:53
  819. --- getuid.c    1992/04/19 16:04:04
  820. ***************
  821. *** 6,25 ****
  822.   #include <unistd.h>
  823.   
  824.   /* pretending we are root (0,0) is probably not a good idea */
  825. ! static int euid = 1, egid = 1;
  826. ! static int uid = 1, gid = 1;
  827.     
  828. ! int getuid() { return uid; }
  829. ! int geteuid(){ return euid; }
  830.   
  831. ! int getgid() { return gid; }
  832. ! int getegid() { return egid; }
  833.   
  834. ! int setuid(x) int x; { return uid = x; }
  835. ! int setgid(x) int x; { return gid = x; }
  836.   
  837. ! int seteuid(x) int x; { return euid = x; }
  838. ! int setegid(x) int x; { return egid = x; }
  839.     
  840.   int setpgrp() { return getpid(); }
  841.   int getpgrp() { return getpid(); }
  842. --- 6,25 ----
  843.   #include <unistd.h>
  844.   
  845.   /* pretending we are root (0,0) is probably not a good idea */
  846. ! static uid_t euid = 1, uid = 1;
  847. ! static gid_t egid = 1, gid = 1;
  848.     
  849. ! uid_t getuid() { return uid; }
  850. ! uid_t geteuid(){ return euid; }
  851.   
  852. ! gid_t getgid() { return gid; }
  853. ! gid_t getegid() { return egid; }
  854.   
  855. ! uid_t setuid(x) int x; { return uid = x; }
  856. ! gid_t setgid(x) int x; { return gid = x; }
  857.   
  858. ! uid_t seteuid(x) int x; { return euid = x; }
  859. ! gid_t setegid(x) int x; { return egid = x; }
  860.     
  861.   int setpgrp() { return getpid(); }
  862.   int getpgrp() { return getpid(); }
  863. *** 1.7    1991/12/26 15:53:59
  864. --- gmon.c    1992/04/19 16:04:06
  865. ***************
  866. *** 588,594 ****
  867.         case 0x11201985L:
  868.         case 0x02061986L:
  869.         case 0x04241986L:
  870. !     act_pd = (BASEPAGE **) 0x602C;
  871.       break;
  872.         default:
  873.       act_pd = (BASEPAGE **) sysbase[10];
  874. --- 588,594 ----
  875.         case 0x11201985L:
  876.         case 0x02061986L:
  877.         case 0x04241986L:
  878. !     act_pd = (BASEPAGE **) 0x602CL;
  879.       break;
  880.         default:
  881.       act_pd = (BASEPAGE **) sysbase[10];
  882. *** 1.8    1992/03/06 19:19:47
  883. --- gnulib2.c    1992/04/19 16:04:06
  884. ***************
  885. *** 30,35 ****
  886. --- 30,36 ----
  887.   #define L_floatdidf
  888.   
  889.   /* gcc-2.0 stuff */
  890. + #if 0    /* NOTE: these are now covered, and should not be generated here */
  891.   #define L_lshrsi3
  892.   #define L_lshlsi3
  893.   #define L_ashrsi3
  894. ***************
  895. *** 48,53 ****
  896. --- 49,56 ----
  897.   #define L_gesf2
  898.   #define L_ltsf2
  899.   #define L_lesf2
  900. + #endif
  901. + #define L_fxussfsi
  902.   
  903.   #endif /* __DEF_ALL__ */
  904.   
  905. ***************
  906. *** 240,245 ****
  907. --- 243,249 ----
  908.   __EXTERN long long __fixdfdi __PROTO((double a));
  909.   __EXTERN double __floatdidf __PROTO((long long u));
  910.   __EXTERN int __builtin_saveregs __PROTO((void));
  911. + __EXTERN unsigned SItype __fixunssfsi __PROTO((float a));
  912.   
  913.   #ifdef L_adddi3
  914.   long long 
  915. ***************
  916. *** 1088,1093 ****
  917. --- 1092,1098 ----
  918.   union flt_or_int { long int i; float f; };
  919.   #endif
  920.   
  921. + #if 0        /* NOTE: all these come from elsewhere now */
  922.   #ifdef L_lshrsi3
  923.   #if 0
  924.   SItype
  925. ***************
  926. *** 1622,1625 ****
  927. --- 1627,1643 ----
  928.       movel sp@+,d2
  929.       rts
  930.   ");
  931. + #endif
  932. + #endif    /* # if 0 to ensure that the above functions are not compiled */
  933. + 
  934. + 
  935. + #ifdef L_fxussfsi
  936. + #include <limits.h>
  937. + unsigned SItype
  938. + __fixunssfsi (float a)
  939. + {
  940. +   if (a >= - (float) LONG_MIN)
  941. +     return (SItype) (a + LONG_MIN) - LONG_MIN;
  942. +   return (SItype) a;
  943. + }
  944.   #endif
  945. *** 1.21    1992/01/29 20:58:29
  946. --- main.c    1992/04/19 16:04:12
  947. ***************
  948. *** 36,42 ****
  949.   {
  950.       long *cookie;
  951.   
  952. !     cookie = *((long **) 0x5a0);
  953.       if (!cookie)
  954.           __mint = 0;
  955.       else {
  956. --- 36,42 ----
  957.   {
  958.       long *cookie;
  959.   
  960. !     cookie = *((long **) 0x5a0L);
  961.       if (!cookie)
  962.           __mint = 0;
  963.       else {
  964. *** 1.16    1992/03/06 19:19:47
  965. --- mincl    1992/04/19 16:04:14
  966. ***************
  967. *** 1,9 ****
  968.   #
  969.   # GCC specific stuff
  970.   GLIB1 = _addsubd.o _addsubs.o _cmpdf2.o _cmpsf2.o _divdf3.o _divmods.o \
  971. !     _divsf3.o _extends.o _fixdfsi.o _fxunsd.o _floatsi.o \
  972.       _muldf3.o _mulsf3.o _mulsi3.o _negdf2.o _negsf2.o _normdf.o _normsf.o \
  973. !     _truncdf.o _udivmod.o _umulsi3.o
  974.   
  975.   #GLIB2 = gnulib2.o
  976.   GLIB2 = _adddi3.o _subdi3.o _muldi3.o _divdi3.o _moddi3.o _udivdi3.o \
  977. --- 1,9 ----
  978.   #
  979.   # GCC specific stuff
  980.   GLIB1 = _addsubd.o _addsubs.o _cmpdf2.o _cmpsf2.o _divdf3.o _divmods.o \
  981. !     _divsf3.o _extends.o _fixdfsi.o _fxunsd.o _fltsi.o \
  982.       _muldf3.o _mulsf3.o _mulsi3.o _negdf2.o _negsf2.o _normdf.o _normsf.o \
  983. !     _truncdf.o _udivmod.o _umulsi3.o _fixsfsi.o _fltsisf.o
  984.   
  985.   #GLIB2 = gnulib2.o
  986.   GLIB2 = _adddi3.o _subdi3.o _muldi3.o _divdi3.o _moddi3.o _udivdi3.o \
  987. ***************
  988. *** 10,23 ****
  989.           _umoddi3.o _negdi2.o _anddi3.o _iordi3.o _xordi3.o _lshrdi3.o \
  990.           _lshldi3.o _ashldi3.o _ashrdi3.o _one_cmpldi2.o _bdiv.o _cmpdi2.o \
  991.           _ucmpdi2.o _fixunsdfdi.o _fixdfdi.o _floatdidf.o \
  992. !     _lshrsi3.o _lshlsi3.o _ashrsi3.o _ashlsi3.o _eqdf2.o \
  993. !     _nedf2.o _gtdf2.o _gedf2.o _ltdf2.o _ledf2.o _fixsfsi.o \
  994. !     _floatsisf.o _eqsf2.o _nesf2.o _gtsf2.o _gesf2.o _ltsf2.o \
  995. !     _lesf2.o
  996.   
  997.   GCC=     $(GLIB1) $(GLIB2) \
  998.       ldexp.o frexp.o modf.o alloca.o setjmp.o osbind.o\
  999. !     linea.o  alglobal.o sysvar.o gmon.o screen.o stksiz.o binmode.o
  1000.   #
  1001.   # ANSI stuff + support
  1002.   ANSI =  atol.o atof.o abort.o bsearch.o clock.o ctime.o ctype.o difftime.o \
  1003. --- 10,21 ----
  1004.           _umoddi3.o _negdi2.o _anddi3.o _iordi3.o _xordi3.o _lshrdi3.o \
  1005.           _lshldi3.o _ashldi3.o _ashrdi3.o _one_cmpldi2.o _bdiv.o _cmpdi2.o \
  1006.           _ucmpdi2.o _fixunsdfdi.o _fixdfdi.o _floatdidf.o \
  1007. !     _fxussfsi.o
  1008.   
  1009.   GCC=     $(GLIB1) $(GLIB2) \
  1010.       ldexp.o frexp.o modf.o alloca.o setjmp.o osbind.o\
  1011. !     linea.o  alglobal.o sysvar.o gmon.o screen.o stksiz.o binmode.o \
  1012. !     bblink.o
  1013.   #
  1014.   # ANSI stuff + support
  1015.   ANSI =  atol.o atof.o abort.o bsearch.o clock.o ctime.o ctype.o difftime.o \
  1016. ***************
  1017. *** 25,31 ****
  1018.       fputc.o fputs.o fread.o fwrite.o fseek.o fsetpos.o \
  1019.       fprintf.o sprintf.o \
  1020.       fscanf.o scanf.o sscanf.o \
  1021. !     getenv.o gets.o getw.o localtim.o \
  1022.       malloc.o qsort.o raise.o rand.o setbuf.o setvbuf.o \
  1023.       setlocal.o strftime.o strtol.o system.o \
  1024.       tmpnam.o tmpfile.o \
  1025. --- 23,29 ----
  1026.       fputc.o fputs.o fread.o fwrite.o fseek.o fsetpos.o \
  1027.       fprintf.o sprintf.o \
  1028.       fscanf.o scanf.o sscanf.o \
  1029. !     getenv.o putenv.o gets.o getw.o localtim.o \
  1030.       malloc.o qsort.o raise.o rand.o setbuf.o setvbuf.o \
  1031.       setlocal.o strftime.o strtol.o system.o \
  1032.       tmpnam.o tmpfile.o \
  1033. ***************
  1034. *** 43,50 ****
  1035.   
  1036.   STRING = strcat.o strchr.o strcmp.o strcpy.o strcspn.o strdup.o \
  1037.       strlen.o strncat.o strncmp.o strncpy.o strpbrk.o strrchr.o strspn.o \
  1038. !     strtok.o strstr.o memcpy.o memccpy.o memcmp.o memchr.o memset.o \
  1039. !     bcopy.o bcmp.o bzero.o strerror.o
  1040.   #
  1041.   # stuff to fake unix system calls 
  1042.   
  1043. --- 41,48 ----
  1044.   
  1045.   STRING = strcat.o strchr.o strcmp.o strcpy.o strcspn.o strdup.o \
  1046.       strlen.o strncat.o strncmp.o strncpy.o strpbrk.o strrchr.o strspn.o \
  1047. !     strtok.o strstr.o memccpy.o memcmp.o memchr.o \
  1048. !     bcopy.o bcmp.o bzero.o strerror.o strcoll.o
  1049.   #
  1050.   # stuff to fake unix system calls 
  1051.   
  1052. ***************
  1053. *** 96,102 ****
  1054.   _divsf3.o: _divsf3.cpp
  1055.   _extends.o: _extends.cpp
  1056.   _fixdfsi.o: _fixdfsi.cpp
  1057. ! _floatsi.o: _floatsi.cpp
  1058.   _fxunsd.o: _fxunsd.cpp
  1059.   _muldf3.o: _muldf3.cpp
  1060.   _mulsf3.o: _mulsf3.cpp
  1061. --- 94,100 ----
  1062.   _divsf3.o: _divsf3.cpp
  1063.   _extends.o: _extends.cpp
  1064.   _fixdfsi.o: _fixdfsi.cpp
  1065. ! _fltsi.o: _fltsi.cpp
  1066.   _fxunsd.o: _fxunsd.cpp
  1067.   _muldf3.o: _muldf3.cpp
  1068.   _mulsf3.o: _mulsf3.cpp
  1069. ***************
  1070. *** 103,111 ****
  1071. --- 101,112 ----
  1072.   _normdf.o: _normdf.cpp
  1073.   _normsf.o: _normsf.cpp
  1074.   _truncdf.o: _truncdf.cpp
  1075. + _fixsfsi.o: _fixsfsi.cpp
  1076. + _fltsisf.o: _fltsisf.cpp
  1077.   frexp.o: frexp.cpp
  1078.   ldexp.o: ldexp.cpp
  1079.   modf.o: modf.cpp
  1080. + bzero.o: bzero.cpp
  1081.   
  1082.   #
  1083.   # integer only io stuff
  1084. ***************
  1085. *** 121,127 ****
  1086.   
  1087.   # other dependencies
  1088.   bcopy.o : bcopy.s
  1089. - memcpy.o: memcpy.s
  1090.   atof.o  : flonum.h
  1091.   
  1092.   #
  1093. --- 122,127 ----
  1094. ***************
  1095. *** 149,157 ****
  1096.       rm -f $(IIOBJ)
  1097.       rm -f setjmp.s div.s
  1098.       rm -f _addsubd.s _addsubs.s _divdf3.s _divsf3.s _extends.s _fixdfsi.s
  1099. !     rm -f _floatsi.s _fxunsd.s _muldf3.s _mulsf3.s _normdf.s _normsf.s
  1100. !     rm -f _truncdf.s frexp.s ldexp.s modf.s
  1101. ! 
  1102.   realclean: clean
  1103.       rm -f $(ALL) $(ALL020)
  1104.   
  1105. --- 149,157 ----
  1106.       rm -f $(IIOBJ)
  1107.       rm -f setjmp.s div.s
  1108.       rm -f _addsubd.s _addsubs.s _divdf3.s _divsf3.s _extends.s _fixdfsi.s
  1109. !     rm -f _fltsi.s _fxunsd.s _muldf3.s _mulsf3.s _normdf.s _normsf.s
  1110. !     rm -f _truncdf.s frexp.s ldexp.s modf.s bzero.s
  1111. !     rm -f  _fixsfsi.s _fltsisf.s
  1112.   realclean: clean
  1113.       rm -f $(ALL) $(ALL020)
  1114.   
  1115. *** 1.10    1992/03/06 19:19:47
  1116. --- mkdir.c    1992/04/19 16:04:17
  1117. ***************
  1118. *** 8,15 ****
  1119.   #include <support.h>
  1120.   #include <unistd.h>
  1121.   #include <errno.h>
  1122. - #include <types.h>
  1123. - #include <stat.h>
  1124.   #include "symdir.h"
  1125.   #include "lib.h"
  1126.   
  1127. --- 8,13 ----
  1128. ***************
  1129. *** 20,26 ****
  1130.   int mode;
  1131.   {
  1132.       int rv, name_munged;
  1133. -     struct stat statbuf;
  1134.       char path[FILENAME_MAX];
  1135.   
  1136.   /*
  1137. --- 18,23 ----
  1138. ***************
  1139. *** 31,44 ****
  1140.    */
  1141.       name_munged = (unx2dos(_path, path) == _NM_CHANGE);
  1142.   
  1143. !     rv = stat(path, &statbuf);    /* Stat directory */
  1144. !     if (rv == 0) {            /* Does it exist ? */
  1145.           errno = EEXIST;        /* Yes, so tell user. */
  1146.           return -1;
  1147.       }
  1148.   
  1149. !     if (errno != ENOENT) {        /* Return stat error, if other than */
  1150. !         return -1;        /* File not found. */
  1151.       }
  1152.   
  1153.       rv = Dcreate(path);
  1154. --- 28,42 ----
  1155.    */
  1156.       name_munged = (unx2dos(_path, path) == _NM_CHANGE);
  1157.   
  1158. !     rv = Fattrib(path, 0, 0);    /* Get file attributes */
  1159. !     if (rv >= 0) {            /* Does it exist ? */
  1160.           errno = EEXIST;        /* Yes, so tell user. */
  1161.           return -1;
  1162.       }
  1163.   
  1164. !     if (rv != -ENOENT) {        /* Return stat error, if other than */
  1165. !         errno = -rv;        /* File not found. */
  1166. !         return -1;
  1167.       }
  1168.   
  1169.       rv = Dcreate(path);
  1170. *** 1.16    1992/03/22 21:57:30
  1171. --- read.c    1992/04/19 16:04:22
  1172. ***************
  1173. *** 31,37 ****
  1174.   #endif
  1175.   
  1176.   #define    iswhite(c)    ((c) == ' ' || (c) == '\t')
  1177. ! #define    isvisable(c)    ((c) >= ' ' && (c) < 0x7f)
  1178.   #define    echochar(fd, c)    if (__ttymode & ECHO) (void) _echochar(fd, c); else
  1179.   #define    delchar(fd, n)    if (__ttymode & ECHO) _delchar(fd, n); else
  1180.   
  1181. --- 31,37 ----
  1182.   #endif
  1183.   
  1184.   #define    iswhite(c)    ((c) == ' ' || (c) == '\t')
  1185. ! #define    isvisable(c)    ((unsigned char)(c) >= ' ')
  1186.   #define    echochar(fd, c)    if (__ttymode & ECHO) (void) _echochar(fd, c); else
  1187.   #define    delchar(fd, n)    if (__ttymode & ECHO) _delchar(fd, n); else
  1188.   
  1189. ***************
  1190. *** 297,303 ****
  1191.       int    len = 0;
  1192.       char    c = thebuf[n];
  1193.   
  1194. !     if ((c > 0 && c < ' ') || (c == 0x7f)) {
  1195.           if (c == '\t')
  1196.               len = __col_pos - str_length(thebuf, n);
  1197.           else
  1198. --- 297,303 ----
  1199.       int    len = 0;
  1200.       char    c = thebuf[n];
  1201.   
  1202. !     if ((c >= 0 && c < ' ') || c == 0x7f) {
  1203.           if (c == '\t')
  1204.               len = __col_pos - str_length(thebuf, n);
  1205.           else
  1206. ***************
  1207. *** 322,328 ****
  1208.   
  1209.       while (n--) {
  1210.           c = *p++;
  1211. !         if ((c > 0 && c < ' ') || (c == 0x7f))
  1212.               if (c == '\t')
  1213.                   pos = (pos | 7) + 1;
  1214.               else
  1215. --- 322,328 ----
  1216.   
  1217.       while (n--) {
  1218.           c = *p++;
  1219. !         if ((c >= 0 && c < ' ') || c == 0x7f)
  1220.               if (c == '\t')
  1221.                   pos = (pos | 7) + 1;
  1222.               else
  1223. *** 1.8    1991/06/11 23:04:27
  1224. --- rmdir.c    1992/04/19 16:04:24
  1225. ***************
  1226. *** 60,65 ****
  1227. --- 60,68 ----
  1228.               *s = 0;    /* restore name */
  1229.           }
  1230.           r = Ddelete(path);
  1231. +         if (r < 0 && dir)
  1232. +           /* rewrite symbolic directory if dir was nonempty */
  1233. +           (void)_write_symdir (path, dir);
  1234.       }
  1235.       if (r < 0) {
  1236.           errno = -r;
  1237. *** 1.10    1992/03/06 19:19:47
  1238. --- sbrk.c    1992/04/19 16:04:24
  1239. ***************
  1240. *** 67,73 ****
  1241.         return lsbrk(n);
  1242.         }
  1243.         errno = ENOMEM;
  1244. !       rval = (void *)-1;
  1245.     }
  1246.     return rval;
  1247.   }
  1248. --- 67,73 ----
  1249.         return lsbrk(n);
  1250.         }
  1251.         errno = ENOMEM;
  1252. !       rval = (void *)(-1L);
  1253.     }
  1254.     return rval;
  1255.   }
  1256. *** 1.13    1992/01/29 20:58:29
  1257. --- scanf.c    1992/04/19 16:04:25
  1258. ***************
  1259. *** 115,121 ****
  1260.       /* Character-buffer pointer.  */
  1261.       register char *str;
  1262.       /* Workspace.  */
  1263. !     char work[200];
  1264.       char *w;        /* Pointer into WORK.  */
  1265.       
  1266.       if ((format == NULL) || (!*format))
  1267. --- 115,121 ----
  1268.       /* Character-buffer pointer.  */
  1269.       register char *str;
  1270.       /* Workspace.  */
  1271. !     char work[256];
  1272.       char *w;        /* Pointer into WORK.  */
  1273.       
  1274.       if ((format == NULL) || (!*format))
  1275. ***************
  1276. *** 494,520 ****
  1277.           }
  1278.           else
  1279.           not_in = 0;
  1280. !         
  1281. !         while ((fc = *f++) != '\0' && fc != ']')
  1282. !         {
  1283. !         if (fc == '-' && *f != '\0' && *f != ']' &&
  1284. !             w > work && w[-1] <= *f)
  1285.               /* Add all characters from the one before the '-'
  1286. !                up to (but not including) the next format char.  */
  1287. !             for (fc = w[-1] + 1; fc < *f; ++fc)
  1288. !             *w++ = fc;
  1289. !         else
  1290. !             /* Add the character to the list.  */
  1291. !             *w++ = fc;
  1292.           }
  1293.           if (fc == '\0')
  1294.           conv_error();
  1295.           
  1296. !         *w = '\0';
  1297.           unum = read_in;
  1298.           do
  1299.           {
  1300. !         if ((strchr(work, c) == NULL) != not_in)
  1301.               break;
  1302.           if (do_assign)
  1303.               *str++ = c;
  1304. --- 494,524 ----
  1305.           }
  1306.           else
  1307.           not_in = 0;
  1308. !         w = (char *)f;        /* remember start of class */
  1309. !         bzero (work, 256);
  1310. !         while ((fc = *f++) != '\0' && (fc != ']' || f - 1 == w))
  1311. !         {
  1312. !         /* Add the character to the list.  */
  1313. !         work[(unsigned char)fc] = 1;
  1314. !         /* Look ahead for a range.  */
  1315. !         if (f[0] == '-' && f[1] != '\0' && f[1] != ']')
  1316. !           {
  1317.               /* Add all characters from the one before the '-'
  1318. !                up to the next format char.  */
  1319. !             unsigned char end = f[1];
  1320. !             while ((unsigned char)++fc <= end)
  1321. !             work[(unsigned char)fc] = 1;
  1322. !             f += 2;
  1323. !           }
  1324.           }
  1325.           if (fc == '\0')
  1326.           conv_error();
  1327.           
  1328. !         work[0] = not_in;
  1329.           unum = read_in;
  1330.           do
  1331.           {
  1332. !         if (work[(unsigned char)c] == not_in)
  1333.               break;
  1334.           if (do_assign)
  1335.               *str++ = c;
  1336. *** 1.17    1992/01/29 20:58:29
  1337. --- stat.c    1992/04/19 16:04:30
  1338. ***************
  1339. *** 170,176 ****
  1340.   
  1341.       if (!(d = _do_stat(path))) {
  1342.       /* errno was set by _do_stat */
  1343. !         if (errno == ENOENT && nval == _NM_LINK) {
  1344.           /* here we have a symbolic link to a deleted file */
  1345.               st->st_mode = S_IFLNK | 0644;
  1346.               st->st_ino = ++__inode;
  1347. --- 170,176 ----
  1348.   
  1349.       if (!(d = _do_stat(path))) {
  1350.       /* errno was set by _do_stat */
  1351. !         if ((errno == ENOENT || errno == EPATH) && nval == _NM_LINK) {
  1352.           /* here we have a symbolic link to a deleted file */
  1353.               st->st_mode = S_IFLNK | 0644;
  1354.               st->st_ino = ++__inode;
  1355. *** 1.4    1991/04/26 03:42:08
  1356. --- strftime.c    1992/04/19 16:04:34
  1357. ***************
  1358. *** 196,201 ****
  1359. --- 196,205 ----
  1360.               strftime(buf, sizeof buf, "%H:%M:%S", ts);
  1361.               break;
  1362.   #endif
  1363. +            default:
  1364. +             buf[0] = q;
  1365. +             buf[1] = 0;
  1366. +             break;
  1367.                   }
  1368.   
  1369.                   if (num + (len = strlen(putstr)) >= maxsize)
  1370. *** 1.15    1992/03/22 21:57:30
  1371. --- system.c    1992/04/19 16:04:40
  1372. ***************
  1373. *** 28,34 ****
  1374.   #endif
  1375.   
  1376.   #define isquote(c) ((c) == '\"' || (c) == '\'' || (c) == '`')
  1377. ! #define ARG_ERR       ( (Argentry *) -1 )
  1378.   
  1379.   /* struct. used to build a list of arguments for the command */
  1380.   
  1381. --- 28,34 ----
  1382.   #endif
  1383.   
  1384.   #define isquote(c) ((c) == '\"' || (c) == '\'' || (c) == '`')
  1385. ! #define ARG_ERR       ( (Argentry *) -1L )
  1386.   
  1387.   /* struct. used to build a list of arguments for the command */
  1388.   
  1389. *** 1.21    1992/01/29 20:58:29
  1390. --- unx2dos.c    1992/04/19 16:04:44
  1391. ***************
  1392. *** 39,45 ****
  1393.    * it's assumed that the user will set this via a definition
  1394.    *    char *_default_unixmode = whatever
  1395.    * if no such definition is present (i.e. _default_unixmode is 0) then
  1396. !  * "/" is assumed
  1397.    */
  1398.   
  1399.   char *_default_unixmode;
  1400. --- 39,45 ----
  1401.    * it's assumed that the user will set this via a definition
  1402.    *    char *_default_unixmode = whatever
  1403.    * if no such definition is present (i.e. _default_unixmode is 0) then
  1404. !  * "/d" is assumed
  1405.    */
  1406.   
  1407.   char *_default_unixmode;
  1408. ***************
  1409. *** 86,92 ****
  1410.       /* compatibility with older versions of the library */
  1411.       switch(_unixmode) {
  1412.         case 0: mode = ""; break;
  1413. !       case 1: mode = "/"; break;
  1414.         case 2: mode = "/.,"; break;
  1415.         default: mode = "/.,LAHd"; break;
  1416.       }
  1417. --- 86,92 ----
  1418.       /* compatibility with older versions of the library */
  1419.       switch(_unixmode) {
  1420.         case 0: mode = ""; break;
  1421. !       case 1: mode = "/d"; break; /* 'd' added to default */
  1422.         case 2: mode = "/.,"; break;
  1423.         default: mode = "/.,LAHd"; break;
  1424.       }
  1425.